home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aag.d64 / sigdig.func < prev    next >
Text File  |  2007-02-28  |  422b  |  15 lines
  1. 9000 //
  2. 9010 FUNC SIGDIG(N$) CLOSED
  3. 9020  WHILE N$(1)="0" DO N$:=N$(2:LEN(N$))
  4. 9030  DEC'PT:="." IN N$
  5. 9040  IF DEC'PT=LEN(N$) THEN DEC'PT:=0
  6. 9050  IF DEC'PT THEN
  7. 9060   N$:=N$(1:DEC'PT-1)+N$(DEC'PT+1:LEN(N$))
  8. 9070   WHILE N$(1)="0" DO N$:=N$(2:LEN(N$))
  9. 9080  ELSE 
  10. 9090   WHILE N$(LEN(N$))="0" DO N$:=N$(1:LEN(N$)-1)
  11. 9100  ENDIF 
  12. 9110  IF N$(LEN(N$))="." THEN N$:=N$(1:LEN(N$)-1)
  13. 9120  RETURN LEN(N$)
  14. 9130 ENDFUNC SIGDIG
  15.